home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / printing lab (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  247 lines
  1. 10 print"[147]"chr$(142):poke53280,0:poke53281,0
  2. 100 gosub 60000
  3. 130 :
  4. 140 :
  5. 150 gosub 63000
  6. 250 geta$:ifa$=""then 250
  7. 251 ifa$<"0"ora$>"9"then250
  8. 252 x=val(a$)
  9. 254 ifx=0 then 1500
  10. 255 gosub 61500
  11. 260 onxgoto270,340,410,450,490,610,980,1180,1300,1500
  12. 265 goto 150
  13. 270 print"[147]":open4,4,0:print#4,chr$(14)+chr$(31)
  14. 280 print#4,"vic chip memory map (40 col.)":print#4,chr$(15)
  15. 285 print#4:gosub1490
  16. 290 print#4,spc(16);"111111111122222222223333333333"
  17. 300 print#4,spc(6);"0123456789012345678901234567890123456789"
  18. 305 print#4:print#4
  19. 310 fori=1024to1984step40
  20. 320 print#4,i;:forx=0to39:print#4,"[207]";:next:print#4,"[199]":printchr$(13):next
  21. 330 forx=0to45:print#4,"[163]";:next:gosub1470:print"[147]":gosub1450:goto140
  22. 340 print"[147]":open4,4,0:print#4,chr$(14)+chr$(31)
  23. 350 print#4,"vic chip color map (40 col.)":print#4,chr$(15)
  24. 355 print#4:gosub1490
  25. 360 print#4,spc(17);"111111111122222222223333333333"
  26. 370 print#4,spc(7);"0123456789012345678901234567890123456789"
  27. 375 print#4:print#4
  28. 380 fori=55296to56256step40
  29. 390 print#4,i;:forx=0to39:print#4,"[207]";:next:print#4,"[199]":printchr$(13):next
  30. 400 forx=0to46:print#4,"[163]";:next:gosub1470:print"[147]":gosub1450:goto140
  31. 410 print"[147]":open4,4,0:forp=1to2:print#4,chr$(14)+chr$(31)
  32. 420 forx=1to2:print#4,"memo[218]memo[218]memo[218]memo  ";:nextx
  33. 425 print#4:print#4,chr$(159)
  34. 430 forl=1to13:print#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print#4
  35. 440 nextl:nextp:print"[147]":gosub1450:goto140
  36. 450 gosub1430:print"[147]":open4,4,0:print#4,chr$(14)+chr$(31):forx=1to4
  37. 460 print#4,"[218]shopping[218]";:next:print#4:forx=1to4
  38. 470 print#4,"[218]  list  [218]";:next:print#4,chr$(159):forl=1to29:forx=1to4
  39. 480 print#4," [164][164][164][164][164][164][164][164] ";:next:print#4:print#4:next:print"[147]"
  40. 485 gosub1450:goto140
  41. 490 print"[147]":open4,4,0:form=1to2:print#4,chr$(31):forx=1to2
  42. 500 print#4,"to [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] from [164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:nextx:print#4
  43. 510 print#4,chr$(14)+chr$(31)
  44. 520 print#4,"while you were out! while you were out!"
  45. 525 print#4,chr$(15):forx=1to2
  46. 530 print#4,"m [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] of [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:nextx
  47. 535 print#4:print#4
  48. 540 forx=1to2:print#4,"ph# [164][164][164][164][164][164][164][164][164][164][164][164][164][164] ext# [164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";
  49. 545 nextx:print#4
  50. 550 print#4
  51. 560 forx=1to2:print#4,"called  [], urgent [], please call [],  ";
  52. 565 nextx:print#4:print#4
  53. 570 forx=1to2:print#4,"message [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:nextx
  54. 580 print#4:print#4,chr$(159):forz=1to8
  55. 590 forx=1to2:print#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:nextx
  56. 595 print#4
  57. 600 print#4:nextz:print#4:nextm:print"[147]":gosub1450:goto140
  58. 610 print"[147]":open4,4:print#4,chr$(14)+chr$(31):form=1to19
  59. 620 print"[147][159]    printing lab's cover designs ":print
  60. 630 print"[152] a=basketweave ":print" b=hearts      "
  61. 640 print" c=x's and o's ":print" d=diamonds    "
  62. 650 print" e=playing card":print" f=checker brd."
  63. 660 print" g=brick work  ":print" h=mosaic tile "
  64. 670 print" i=geometric   ":print" j=diagonals   "
  65. 680 print" k=deco-art i  ":print" l=deco-art ii "
  66. 685 print"[154]  enter cover  ":print"    design     "
  67. 690 getcv$:ifcv$=""then690
  68. 695 ifasc(cv$)<65orasc(cv$)>76orlen(cv$)=>2thenprint"[145][145]":cv$="":goto690
  69. 700 print:print"   printing...  ":print
  70. 710 ifcv$="a"thena$="[208]":b$="[186]":n=9:print#4,chr$(14):goto830
  71. 720 ifcv$="b"thena$="[211]":b$=" ":n=17:print#4,chr$(15):goto830
  72. 730 ifcv$="c"thena$="x":b$="o":n=9:print#4,chr$(14):goto830
  73. 740 ifcv$="d"thena$="[206]":b$="[205]":n=17:print#4,chr$(15):goto830
  74. 750 ifcv$="e"thena$="[193][211]":b$="[218][216]":n=9:print#4,chr$(15):goto830
  75. 760 ifcv$="f"thena$="[166]":b$=" ":n=17:print#4,chr$(15):goto830
  76. 770 ifcv$="g"thena$="[177]":b$="[178]":n=17:print#4,chr$(15):goto830
  77. 780 ifcv$="h"thena$="[201][213]":b$="[203][202]":n=9:print#4,chr$(15):goto830
  78. 790 ifcv$="i"thena$="[169]":b$="[223]":n=9:print#4,chr$(14):goto830
  79. 800 ifcv$="k"thena$="[214]":b$="[219]":n=9:print#4,chr$(14):goto830
  80. 810 ifcv$="j"thena$="[186]":b$="[207]":n=9:print#4,chr$(14):goto830
  81. 820 ifcv$="l"thena$="[223]":b$="[169]":n=18:print#4,chr$(15):goto830
  82. 830 print#4,chr$(31):form=1to19:forx=1ton:print#4,a$;b$;:next
  83. 835 gosub1490:print#4
  84. 840 forx=1ton:print#4,b$;a$;:next:print#4:next:forx=1to13:print#4:next
  85. 850 print"[154][147]       enter the inside message      "
  86. 855 print"   press return on a separate line"
  87. 856 print"        when ready to continue
  88. 860 ln[178]40:nu[178]0:[141]61000
  89. 870 [139]b$[178]""[167] 930
  90. 880 an$[178]b$
  91. 900 :
  92. 910 [152]4,[199](15):kk[178][181](52[171]([195](an$)[173]2)):[152]4,[166]kk),;an$:[152]4
  93. 920 an$[178]"":a$[178]"":[137]860
  94. 930 [153]"for type a one liner on back ? (y/n) ":[153]
  95. 940 [161]a$:[139]a$[178]""[167]940
  96. 945 [139]a$[178]"n"[176]a$[178]"(NULL)" [167] 960
  97. 946 [139]a$[178]"y"[176]a$[178]"(NULL)" [167] 950
  98. 947 [137] 940
  99. 950 [153]:[153]" what is the credit to print :";:ln[178]19:[141]61000:ff$[178]b$
  100. 951 [152]4,[166]5),;ff$
  101. 955 [152]4
  102. 960 [153]"load":[141]1450:[137]140
  103. 970 :
  104. 980 [153]"load"
  105. 985 [159]4,4,0:[153]"open  custom letterhead mode is now active"
  106. 987 [153]:[153]" e=enhanced, n=normal, q=quit, (e/n/q) "
  107. 990 [153]"    which print mode do you wish ?"
  108. 991 [161]m$:[139]m$[178]""[167]991
  109. 992 [139]m$[178]"e"[176]m$[178]"n"[176]m$[178]"q"[167] 1000
  110. 995 [137] 991
  111. 1000 :
  112. 1010 [139]m$[178]"q"[167]1120
  113. 1025 [139]m$[178]"e"[167][152]4,[199](31)[170][199](14):ln[178]20
  114. 1035 [139]m$[178]"n"[167][152]4,[199](31)[170][199](15):ln[178]59
  115. 1040 an$[178]"":ln[178]20:[139]m$[178]"n"[167]ln[178]60
  116. 1044 [153]"enter text now. up to "ln[171]1" chars long"
  117. 1045 [153]"press return on a seperate line to quit":[153]
  118. 1050 nu[178]0:[141]61000
  119. 1060 [139]b$[178]""[167] 1130
  120. 1070 an$[178]b$
  121. 1100 [139]m$[178]"e"[167]xt[178][181](10[171]([195](an$)[173]2)):[152]4,[166]xt),;an$:[137]1050
  122. 1110 [139]m$[178]"n"[167]xt[178][181](30[171]([195](an$)[173]2)):[152]4,[166]xt),;an$:[137]1050
  123. 1120 [153]"load":[141]1450:[137]140
  124. 1130 [153]"clr should i draw a line across the top,  "
  125. 1140 [153]"clr to separate the letterhead (y/n) close?   "
  126. 1150 [161]a$:[139]a$[178]""[167]1150
  127. 1160 [139]a$[178]"y"[167]1165
  128. 1161 [139]a$[178]"n"[167]1120
  129. 1162 [137] 1150
  130. 1165 [152]4,[199](14)[199](159):[129]x[178]1[164]40:[152]4,"to";:[130]:[137]1120
  131. 1170 [137]1120
  132. 1180 [153]"load":[159]4,4,0:[152]4,[199](31)
  133. 1190 [153]"open typewriter with normal print mode  "
  134. 1200 [153]" is now active. type in up to 80 cols.  "
  135. 1210 [153]"press return on a seperate line to quit":[153]
  136. 1220 an$[178]""
  137. 1230 ln[178]81:nu[178]0:[141]61000
  138. 1240 [139]b$[178]""[167] 1290
  139. 1250 [152]4,b$:[137]1220
  140. 1290 [152]4,[199](15):[153]"load":[141]1450:[137]140
  141. 1300 [153]"load":[159]4,4,0:[152]4,[199](31)[170][199](14)
  142. 1310 [153]"open typewriter with enhanced print mode"
  143. 1320 [153]" is now active. type in up to 40 cols.  "
  144. 1325 [153]"press return on a seperate line to quit":[153]
  145. 1330 ln[178]41
  146. 1340 nu[178]0:[141]61000
  147. 1350 [139]b$[178]""[167] 1400
  148. 1360 [152]4,b$:[137]1330
  149. 1400 [152]4,[199](15):[153]"load":[141]1450:[137]140
  150. 1410 p[178][195](k$):tx[178]40[171]p[173]2:[129]d[178]1[164][195](k$)[171]20
  151. 1420 [153]xr$[166]tx)[200](k$,d)[201](k$,p[171](p[171]d)):tx[178]tx[171]1:[130]:[142]
  152. 1430 :
  153. 1450 [159]10,4,10:[152]10:[160]10:[160]4:x[178]0:i[178]0:p[178]0:l[178]0:z[178]0:m[178]0:n[178]0:kk[178]0
  154. 1460 xt[178]0:a$[178]"":b$[178]"":an$[178]"":ff$[178]"":tx[178]